Imports TeamUp.Negocio
Imports TeamUp.Entidades
Imports System.Collections.Generic
Public Class Facade

    Private Shared objFachada As Facade

    Private Sub New()

    End Sub

    Public Shared Function getInstance() As Facade
        If objFachada Is Nothing Then
            getInstance = New Facade
        Else
            getInstance = objFachada
        End If
    End Function



#Region "ControladorUsuario"
    Public Function consultarUsuario(ByVal objParametroUsuario As ParametroUsuario) As List(Of Usuario)
        Dim objControladorParticipante As ControladorParticipanteUsuario = New ControladorParticipanteUsuario(Nothing)
        consultarUsuario = objControladorParticipante.consultarUsuario(objParametroUsuario)
    End Function

    Public Function consultarUsuarioLogin(ByVal objParametroUsuario As ParametroUsuario) As List(Of Usuario)
        Dim objControladorParticipante As ControladorParticipanteUsuario = New ControladorParticipanteUsuario(Nothing)
        consultarUsuarioLogin = objControladorParticipante.consultarUsuarioLogin(objParametroUsuario)
    End Function

    Public Function consultarUsuarioEstimativa(ByVal objParametroUsuario As ParametroUsuario) As List(Of Usuario)
        Dim objControladorParticipante As ControladorParticipanteUsuario = New ControladorParticipanteUsuario(Nothing)
        consultarUsuarioEstimativa = objControladorParticipante.consultarUsuarioEstimativa(objParametroUsuario)
    End Function

    Public Function consultarUsuarioEscopo(ByVal objParametroUsuario As ParametroUsuario) As List(Of Participante)
        Dim objControladorParticipante As ControladorParticipanteUsuario = New ControladorParticipanteUsuario(Nothing)
        consultarUsuarioEscopo = objControladorParticipante.consultarUsuarioEscopo(objParametroUsuario)
    End Function

    Public Sub incluirUsuarioEscopo(ByVal objEscopo As Escopo, ByVal objUsuario As Usuario, ByVal strPapel As String)
        Dim objControladorParticipante As ControladorParticipanteUsuario = New ControladorParticipanteUsuario(Nothing)
        objControladorParticipante.incluirUsuarioEscopo(objEscopo, objUsuario, strPapel)
    End Sub

    Public Sub excluirUsuarioEscopo(ByVal objEscopo As Escopo, ByVal objUsuario As Usuario, ByVal strPapel As String)
        Dim objControladorParticipante As ControladorParticipanteUsuario = New ControladorParticipanteUsuario(Nothing)
        objControladorParticipante.excluirUsuarioEscopo(objEscopo, objUsuario, strPapel)
    End Sub

#End Region

#Region "ControladorProjeto"
    Public Function consultarProjeto(ByVal stIdProjeto As String) As List(Of Projeto)
        Dim objControladorProjeto As ControladorProjeto = New ControladorProjeto(Nothing)
        consultarProjeto = objControladorProjeto.consultarProjeto(stIdProjeto)
    End Function

    Public Function consultarProjetoTreeView(ByVal stIdProjeto As String) As List(Of Projeto)
        Dim objControladorProjeto As ControladorProjeto = New ControladorProjeto(Nothing)
        consultarProjetoTreeView = objControladorProjeto.consultarProjetoTreeView(stIdProjeto)
    End Function
#End Region

#Region "ControladorEscopo"

    Public Function getEscopo(ByVal objParametroEscopo As ParametroEscopo) As List(Of Escopo)
        Dim objControladorEscopo As ControladorEscopo = New ControladorEscopo(Nothing)
        getEscopo = objControladorEscopo.getEscopo(objParametroEscopo)
    End Function

    Public Sub incluirEscopo(ByVal objEscopo As Escopo)
        Dim objControladorEscopo As ControladorEscopo = New ControladorEscopo(Nothing)
        objControladorEscopo.incluirEscopo(objEscopo)
    End Sub

    Public Sub excluirEscopo(ByVal objParametroEscopo As ParametroEscopo)
        Dim objControladorEscopo As ControladorEscopo = New ControladorEscopo(Nothing)
        objControladorEscopo.excluirEscopo(objParametroEscopo)
    End Sub
    Public Sub alterarEscopo(ByVal objEscopo As Escopo)
        Dim objControladorEscopo As ControladorEscopo = New ControladorEscopo(Nothing)
        objControladorEscopo.alterarEscopo(objEscopo)
    End Sub
    '--
    '--
    Public Sub iniciarSessao(ByVal objEscopo As Escopo)
        Dim objControladorSessao As ControladorEscopo = New ControladorEscopo(Nothing)
        objControladorSessao.iniciarSessao(objEscopo)
    End Sub

    Public Sub novaRodadaEscopo(ByVal objEscopo As Escopo)
        Dim objControladorSessao As ControladorEscopo = New ControladorEscopo(Nothing)
        objControladorSessao.novaRodadaEscopo(objEscopo)
    End Sub

    Public Sub finalizarSessao(ByVal objEscopo As Escopo)
        Dim objControladorSessao As ControladorEscopo = New ControladorEscopo(Nothing)
        objControladorSessao.finalizarSessao(objEscopo)
    End Sub

    Public Function consultarSessao(ByVal objParametroEscopo As ParametroEscopo) As List(Of Sessao)
        Dim objControladorSessao As ControladorEscopo = New ControladorEscopo(Nothing)
        consultarSessao = objControladorSessao.consultarSessao(objParametroEscopo)
    End Function

#End Region

#Region "ControladorAtividade"
    Public Function getAtividade(ByVal objParametroAtividade As ParametroAtividade) As List(Of Atividade)
        Dim objControladorAtividade As ControladorAtividade = New ControladorAtividade(Nothing)
        getAtividade = objControladorAtividade.getAtividade(objParametroAtividade)
    End Function

    Public Function consultarNovasAtividades(ByVal objParametroAtividade As ParametroAtividade) As List(Of Atividade)
        Dim objControladorAtividade As ControladorAtividade = New ControladorAtividade(Nothing)
        consultarNovasAtividades = objControladorAtividade.consultarNovasAtividades(objParametroAtividade)
    End Function

    Public Sub incluirAtividade(ByVal objAtividade As Atividade)
        Dim objControladorAtividade As ControladorAtividade = New ControladorAtividade(Nothing)
        objControladorAtividade.incluirAtividade(objAtividade)
    End Sub

    Public Sub incluirNovasAtividades(ByVal objAtividade As Atividade)
        Dim objControladorAtividade As ControladorAtividade = New ControladorAtividade(Nothing)
        objControladorAtividade.incluirNovasAtividades(objAtividade)
    End Sub

    Public Sub excluirAtividade(ByVal objobjParametroAtividade As ParametroAtividade)
        Dim objControladorAtividade As ControladorAtividade = New ControladorAtividade(Nothing)
        objControladorAtividade.excluirAtividade(objobjParametroAtividade)
    End Sub

    Public Sub excluirNovasAtividades(ByVal objParametroAtividade As ParametroAtividade)
        Dim objControladorAtividade As ControladorAtividade = New ControladorAtividade(Nothing)
        objControladorAtividade.excluirNovasAtividades(objParametroAtividade)
    End Sub

    Public Sub alterarAtividade(ByVal objAtividade As Atividade)
        Dim objControladorAtividade As ControladorAtividade = New ControladorAtividade(Nothing)
        objControladorAtividade.alterarAtividade(objAtividade)
    End Sub

    Public Sub alterarNovasAtividades(ByVal objAtividade As Atividade)
        Dim objControladorAtividade As ControladorAtividade = New ControladorAtividade(Nothing)
        objControladorAtividade.alterarNovasAtividades(objAtividade)
    End Sub

    Public Sub acatarAtividades(ByVal objAtividade As Atividade)
        Dim objControladorAtividade As ControladorAtividade = New ControladorAtividade(Nothing)
        objControladorAtividade.acatarAtividades(objAtividade)
    End Sub

#End Region

#Region "ControladorEstimativa"
    Public Function getEstimativa(ByVal objParametroEstimativa As ParametroEstimativa) As List(Of Estimativa)
        Dim objControladorEstimativa As ControladorEstimativa = New ControladorEstimativa(Nothing)
        getEstimativa = objControladorEstimativa.getEstimativa(objParametroEstimativa)
    End Function

    Public Sub incluirEstimativa(ByVal objEstimativa As Estimativa)
        Dim objControladorEstimativa As ControladorEstimativa = New ControladorEstimativa(Nothing)
        objControladorEstimativa.incluirEstimativa(objEstimativa)
    End Sub

    Public Sub alterarEstimativa(ByVal objEstimativa As Estimativa)
        Dim objControladorEstimativa As ControladorEstimativa = New ControladorEstimativa(Nothing)
        objControladorEstimativa.alterarEstimativa(objEstimativa)
    End Sub
#End Region

#Region "ControladorRelatorio"

#End Region

End Class
